home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / ben250.zip / BENDEMO.DA1 < prev    next >
Text File  |  1990-01-04  |  2KB  |  45 lines
  1. CURSOR OFF
  2. ATTRIB 7 0 BOX 4 3 77 22 15 1 1 G
  3. GOTOXY 6 5
  4. WRITE 14 1 1 ██████ █ ███████ █     █ █ ██████       ██████  ██████  ██████ ███████
  5. GOTOXY 6 6
  6. WRITE 14 1 1 █      █ █  █  █  █   █  █ █            █       █    █  █         █
  7. GOTOXY 6 7
  8. WRITE 14 1 1 ██████ █ █  █  █   █ █   █ ██████       ██████  █    █  █████     █
  9. GOTOXY 6 8
  10. WRITE 14 1 1      █ █ █  █  █   █ █   █      █            █  █    █  █         █
  11. GOTOXY 6 9
  12. WRITE 14 1 1 ██████ █ █  █  █    █    █ ██████       ██████  ██████  █         █
  13. GOTOXY 36 12 WRITE 15 1 2 PRESENTS ...
  14. SOUND 100 150
  15. SOUND 200 150
  16. SOUND 300 150
  17. SOUND 400 150
  18. SOUND 500 150
  19. SOUND 400 150
  20. SOUND 300 150
  21. SOUND 200 150
  22. SOUND 100 150
  23. GOTOXY 12 14
  24. WRITE 12 1 1 ████████████████     ████████████████    █████         ██
  25. GOTOXY 12 15
  26. WRITE 12 1 1 ██             ██    ██                  ██████        ██
  27. GOTOXY 12 16
  28. WRITE 12 1 1 ██             ██    ██                  ██  ███       ██
  29. GOTOXY 12 17
  30. WRITE 12 1 1 ████████████████     ████████████████    ██   ███      ██
  31. GOTOXY 12 18
  32. WRITE 12 1 1 ██             ██    ██                  ██    ███     ██
  33. GOTOXY 12 19
  34. WRITE 12 1 1 ██             ██    ██                  ██     ███    ██
  35. GOTOXY 12 20
  36. WRITE 12 1 1 ██             ██    ██                  ██      ████████
  37. GOTOXY 12 21
  38. WRITE 12 1 1 ████████████████     ████████████████    ██       ███████
  39. BOX 1 3 3 22 0 3 4 G BOX 78 3 80 22 0 3 4 G
  40. Writev 2 6 0 3 1 BATCH ENHANCER
  41. Writev 79 6 0 3 1 BATCH ENHANCER
  42. GOTOXY 1 2
  43. WRITE 15 0 1 *          *          *          *           *          *           *          *
  44. CURSOR ON BOX 1 23 80 25 1 7 1 F GOTOXY 2 24 WRITE 1 7 4 Please enter your name:  INLINE CURSOR OFF
  45.